function H = hpfilter(tipus, M, N, D0, n)
    H = 1 - lpfilter(tipus, M, N, D0, n);
end
